(PROG ()  ; This is the data set, required for Homework Set 4, Spring 1979
(PROG () 
(SETQ	DISEASES
	'((SNFEVER	(Fever High-Temperature Headache During-Saturday-Night)
			())
	(BROKEN-LEG	(Skiing-Recently Pain-in-extremity) ())
	(TOOTHACHE	(Pain-In-Mouth Fear-of-Dentists 
			 Sweet-Tooth) ())
	(RECURSIVE-ITIS	(Desire-to-Recur Programming-Aptitude
			 Overwhelming-Optimism Taking-LISP)
			(Likes-Goto))
	(ITERATIVE-ITIS	(Desire-to-Repeat-Things Programming-Aptitude
			 Pedestrian-Outlook Desire-to-Repeat-Again
			 Lack-of-Judgment Ignorant-of-LISP) ())
	(FAIL-LISP-CLASS (Taking-Lisp) (Does-Homework Study-Book Take-Tests))
	(CUTENESS	(Desire-to-use-Multiple-Dashes-in-HW-Assigments
			 Ability-to-Bore-Anyone-with-Run-On-Clauses
			 Takes-LISP Lack-of-Judgment Must-Like-Cute-Names) ())
	(VERBOSITY	(Ability-to-Bore-Anyone-with-Run-On-Clauses
			 Taking-LISP Carries-Dictionary) (Brevity))
	(LACONIC-NESS	(Brevity) ())
        (FOOT-IN-MOUTH  (Pain-In-Mouth Pain-in-Extremity
			 Lack-of-Judgment) ())
	(STOMACHACHE	(Bodyaches Nausea Overall-Queasiness Sweet-Tooth) ())
	(MIDAS-TOUCH	(Filthy-Rich Inability-to-Eat-non-Metallic-Food
			 Metallic-Daughter) ())
	(FEAR-of-FLYING	(Read-Jong Avoid-Airplanes) ())
	(FEAR-of-FRYING	(Must-Like-Cute-Names Avoid-Fried-Foods) ())
	(BRIDGE-ITIS	(Always-occurs-in-3s Carries-Card-Deck 
			 Empty-Tuesday-Night) ())
	(CHESS-ITIS	(Carries-Board Empty-Tuesday-Night Hates-Dice) ())
	(BACKGAMMON-ITIS (Carries-Board Empty-Tuesday-Night Loves-Dice
			  Lack-of-Judgment) ())
	(BLACK-EYES	(Lack-of-Fighting-Ability 
			 Inability-to-Avoid-Speeding-Doors) ())
	(INSANITY  	(Taking-LISP Lack-of-Judgment) ())
	(FUTURE-SHOCK	(Uses-Horses Ignorant-of-Lisp)
			(Uses-Car))
	(TIRED-OF-LOTS	(Does-Homework Uses-Lots Fatigue) ())

	(CHICKEN-POX	(Headache Fever Rash) ())
	(DIPHTHERIA	(Sore-Throat Hoarseness Fever) ())
	(GERMAN-MEASLES	(Headache Cough Sore-throat Rash) ())
	(MONONUCLEOSIS	(Sore-throat Swollen-Glands Fatigue) ())
	(INFLUENZA	(Fever Chills Running-Nose Bodyaches) ())
	(MEASLES	(Fever Bodyaches Cough Rash) ())
	(MUMPS		(Chills Headache Fever Swollen-Glands) ())
	(POLIOMYELITIS	(Fever Sore-Throat Bodyaches Stiffness) ())
	(SCARLET-FEVER	(Sore-Throat Rash Fever Chills) ())
	(SMALL-POX	(Chills Fever Headache Rash) ())
	(HEPATITUS	(Bad-Liver Fatigue) ())
	(HAYFEVER	(Running-Nose Watery-Eyes Cough 
			 During-Pollen-Season Bodyaches) ())
	(COLD		(Running-Nose Fever Bodyaches) (Taking-Vitamin-C))
	(ALCOHOLISM	(Bad-Liver Drinks-a-lot Overall-Queasiness)())
	(HEALTHY	() (Headache Fever Rash Cough Sore-Throat
			    Chills Bad-Liver Bodyaches Hoarseness
			    Ignorant-of-Lisp))
  )
)

(SETQ	PATIENTS
	'((RDG		Desire-to-use-Multiple-Dashes-in-HW-Assigments
			 Ability-to-Bore-Anyone-with-Run-On-Clauses
			 Lack-of-Judgment Like-Cute-Names Takes-LISP)
	(DBL		Desire-to-Recur Programming-Aptitude
			 Overwhelming-Optimism)
	(BCM            Sore-Throat Must-Like-Cute-Names Avoid-Fried-Foods
			 Brevity Headach Fever Cough)
	(CLEOPATRA	Snake-Bit Rash Headache Fever Bodyaches Fatigue)
	(DOLLAR     	Lack-of-Judgment Filthy-Rich Metallic-Daughter
			 Taking-Lisp Inability-to-Eat-non-Metallic-Food Cough)
	(ICARUS   	Read-Jong Avoid-Airplanes Fatigue)
	(FISHER		Carries-Board Hates-Dice Empty-Tuesday-Night)
	(PAULING	Takes-Vitamin-C Running-Nose Bodyaches Fever
			During-Pollen-Season Fatigue Watery-Eyes Cough)
	(BIGMOUTH       Taking-Lisp Ability-to-Bore-Anyone-with-Run-on-Clauses
			 Carries-Dictionary Pain-in-Mouth Lack-of-Judgement
			 Pain-in-Extermity )
	(BIGMOUTH2      Taking-Lisp Ability-to-Bore-Anyone-with-Run-on-Clauses
			 Carries-Dictionary Pain-in-Mouth Lack-of-Judgement
			 Brevity Pain-in-Extermity )
	(NOTHING 	)
	(DIRTYNEEDLE    Fatigue Bad-Liver Fever)
	(SMALLTALK   	Brevity)
	(ROBBERBARON    Filty-Rich Headache Bad-Liver Sore-Throat Rash Cough)
	(MRHANGOVER     Nausea Overall-Queasiness 
			Drinks-a-lot Bad-Liver)
	(JOESTUDENT	Fatigue Uses-Lots Does-Homework Overwhelming-Optimism
			Bad-Liver)
	(MRABACUS	Uses-Horses Avoid-Airplanes Ignorant-of-Lisp Read-Jong
			Likes-Goto)
  )
 )
   (return '(good luck on your diseases))
)